{:}Double close braces are used to avoid error messages that occur because of isolated close braces in the menu screen.  To build the menu screen, command titles are interrupted by mnemonic attribute on/off characters. Thus {{MENU OFF} becomes {{{^V}M{^Q}ENU O{^V}F{^Q}F}.  The final "F}" would generate an error message because the close brace is not paired with an opening brace.  Omitting the extra close brace would cause a harmless error message; the macro would still run correctly.  Error messages will never occur in normal circumstances, since most macros will not intentionally include statements with isolated close brackets.~
{;}This is the MPE4WP Macro Commands (M-Z) macro, which is assigned to CTRL-}} on the MPE4WP keyboard.  Pressing CTRL-}} brings a help screen.  Press the two-key mnemonic to insert the Macro Command with tildes.  After you have memorized the mnemonics, use Expand (CTRL-X) to eliminate the help screens.
Copyright 1991 Michael H. Shacter~

{IF}{STATE}&512~
	{Reveal Codes}
	{ASSIGN}rc~1~
{END IF}
{ON CANCEL}{GO}end~~
{ON ERROR}{GO}end~~
{CHAR}1st~{Del to EOP}
{^P}{2}{2}ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
{^P}{2}{3}³  {{{^V}M{^Q}ENU O{^V}F{^Q}F}}                              {{{^V}R{^Q}E{^V}T{^Q}URN}}                         ³
{^P}{2}{4}³  {{{^V}M{^Q}ENU {^V}O{^Q}N}}                               {{{^V}R{^Q}ETURN {^V}C{^Q}ANCEL}}                  ³
{^P}{2}{5}³  {{{^V}MI{^Q}D}}var{~}offset{~}count{~}                  {{{^V}R{^Q}ETURN {^V}E{^Q}RROR}}                   ³
{^P}{2}{6}³  {{{^V}NE{^Q}ST}}macroname{~}                        {{{^V}R{^Q}ETURN {^V}N{^Q}OT FND}}                 ³
{^P}{2}{7}³  {{{^V}N{^Q}E{^V}X{^Q}T}}                                  {{{^V}S{^Q}HELL {^V}A{^Q}SSIGN}}shellvar{~}expr{~}     ³
{^P}{2}{8}³  {{{^V}N{^Q}TO{^V}K{^Q}}}number{~}                           {{{^V}S{^Q}HELL {^V}M{^Q}ACRO}}macroname{~}          ³
{^P}{2}{9}³  {{{^V}O{^Q}N {^V}C{^Q}ANCEL}}action{~}                      {{{^V}S{^Q}HELL {^V}V{^Q}ARIABLE}}shellvar{~}        ³
{^P}{2}{10}³  {{{^V}O{^Q}N {^V}E{^Q}RROR}}action{~}                       {{{^V}S{^Q}PEE{^V}D{^Q}}}100ths second{~}            ³
{^P}{2}{11}³  {{{^V}ON{^Q} NOT FOUND}}action{~}                   {{{^V}ST{^Q}ATE}}                          ³
{^P}{2}{12}³  {{{^V}O{^Q}RIGINAL {^V}K{^Q}EY}}                          {{{^V}S{^Q}TATUS {^V}P{^Q}ROMPT}}message{~}          ³
{^P}{2}{13}³  {{{^V}OT{^Q}HERWISE}}                             {{{^V}S{^Q}TEP O{^V}F{^Q}F}}                       ³
{^P}{2}{14}³  {{{^V}P{^Q}ara {^V}D{^Q}own}}                             {{{^V}S{^Q}TEP {^V}O{^Q}N}}                        ³
{^P}{2}{15}³  {{{^V}P{^Q}ara {^V}U{^Q}p}}                               {{{^V}SY{^Q}STEM}}sysvar{~}                  ³
{^P}{2}{16}³  {{{^V}PA{^Q}USE}}                                 {{{^V}TE{^Q}XT}}var{~}message{~}               ³
{^P}{2}{17}³  {{{^V}P{^Q}AUSE {^V}K{^Q}EY}}key{~}                         {{{^V}VA{^Q}RIABLE}}var{~}                   ³
{^P}{2}{18}³  {{{^V}PR{^Q}OMPT}}message{~}                        {{{^V}WA{^Q}IT}}10ths second{~}              ³
{^P}{2}{19}³  {{{^V}QU{^Q}IT}}                                  {{{^V}WH{^Q}ILE}}expr{~}                     ³
{^P}{2}{20}³  {{{^V}R{^Q}E{^V}S{^Q}TART}}                                                                ³
{^P}{2}{21}ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;
{^P}{0}{24}{^R}Press two-key mnemonic to insert Macro Command{^S}~
{char}2nd~~

		{:}convertúinputútoúupperúcase~

{ASSIGN}key~{VARIABLE}1st~~
{CALL}upper~
{ASSIGN}1st~{VARIABLE}key~~

{ASSIGN}key~{VARIABLE}2nd~~
{CALL}upper~
{ASSIGN}2nd~{VARIABLE}key~~

{ASSIGN}code~{VARIABLE}1st~{VARIABLE}2nd~~

{CALL}{VARIABLE}code~~
{GO}end~

{LABEL}MF~
{{MENU OFF}
{RETURN}

{LABEL}MO~
{{MENU ON}
{RETURN}

{LABEL}MI~
{{MID}{~}{~}{~}{Left}{Left}{Left}
{RETURN}

{LABEL}NE~
{{NEST}{~}{Left}
{RETURN}

{LABEL}NX~
{{NEXT}
{RETURN}

{LABEL}NK~
{{NTOK}{~}{Left}
{RETURN}

{LABEL}OC~
{{ON CANCEL}{~}{Left}
{RETURN}

{LABEL}OE~
{{ON ERROR}{~}{Left}
{RETURN}

{LABEL}ON~
{{ON NOT FOUND}{~}{Left}
{RETURN}

{LABEL}OK~
{{ORIGINAL KEY}
{RETURN}

{LABEL}OT~
{{OTHERWISE}
{RETURN}

{LABEL}PD~
{{Para Down}
{RETURN}

{LABEL}PU~
{{Para Up}
{RETURN}

{LABEL}PA~
{{PAUSE}
{RETURN}

{LABEL}PK~
{{PAUSE KEY}{~}{Left}
{RETURN}

{LABEL}PR~
{{PROMPT}{~}{Left}
{RETURN}

{LABEL}QU~
{{QUIT}
{RETURN}

{LABEL}RS~
{{RESTART}
{RETURN}

{LABEL}RC~
{{RETURN CANCEL}
{RETURN}

{LABEL}RE~
{{RETURN ERROR}
{RETURN}

{LABEL}RN~
{{RETURN NOT FND}
{RETURN}

{LABEL}RT~
{{RETURN}
{RETURN}

{LABEL}SA~
{{SHELL ASSIGN}{~}{Left}
{RETURN}

{LABEL}SM~
{{SHELL MACRO}{~}{Left}
{RETURN}

{LABEL}SV~
{{SHELL VARIABLE}{~}{Left}
{RETURN}

{LABEL}SD~
{{SPEED}{~}{Left}
{RETURN}

{LABEL}ST~
{{STATE}
{RETURN}

{LABEL}SP~
{{STATUS PROMPT}{~}{Left}
{RETURN}

{LABEL}SF~
{{STEP OFF}
{RETURN}

{LABEL}SO~
{{STEP ON}
{RETURN}

{LABEL}SY~
{{SYSTEM}{~}{Left}
{RETURN}

{LABEL}TE~
{{TEXT}{~}{~}{Left}{Left}
{RETURN}

{LABEL}VA~
{{VARIABLE}{~}{Left}
{RETURN}

{LABEL}WA~
{{WAIT}{~}{Left}
{RETURN}

{LABEL}WH~
{{WHILE}{~}{Enter}
{{END WHILE}{Up}{End}{Left}
{RETURN}



{LABEL}upper~
{ASSIGN}key#~{KTON}{VARIABLE}key~~~
{IF}{VARIABLE}key#~>96&{VARIABLE}key#~<123~
	{ASSIGN}key#~{VARIABLE}key#~-32~
	{ASSIGN}key~{NTOK}{VARIABLE}key#~~~
{END IF}
{RETURN}

{LABEL}end~
{DISPLAY OFF}{DISPLAY ON}
{IF}{VARIABLE}rc~=1~
	{Reveal Codes}
	{ASSIGN}rc~0~
{END IF}
{QUIT}